perm filename BIGNUM.LSP[LSP,WD] blob
sn#010443 filedate 1970-09-18 generic text, type T, neo UTF8
(DEFPROP BIGINIT
(LAMBDA NIL
(PROG NIL
(PUTSYM (VBASE (GET (QUOTE BASE) (QUOTE VALUE)))
NEGNUM
POSNUM
FIXNUM
FLONUM
(MINUSP (GET (QUOTE MINUSP) (QUOTE SUBR)))
(VNOPOI (GET (QUOTE *NOPOINT) (QUOTE VALUE))))))
EXPR)
(DEFPROP APNINIT
(LAMBDA NIL
(PROG NIL
(GETSYM SUBR BIGINI)
(BIGINI)
(REMPROP (QUOTE APNINIT) (QUOTE EXPR))
(REMPROP (QUOTE BIGINIT) (QUOTE EXPR))
(REMPROP (QUOTE BIGINI) (QUOTE SUBR))))
EXPR)
(BIGINIT)